Public Class TextForm

  Private Sub ConvertRTFButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConvertRTFButton.Click
    If InputTextBox.Text.Length > 0 Then
      OutputTextBox.Text = dotNetTips.Utility.StringHelper.ConvertRtfToText(InputTextBox.Text)
    End If
  End Sub

  Private Sub CreateGUIDButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreateGUIDButton.Click
    OutputTextBox.Text = dotNetTips.Utility.StringHelper.CreateGuid
  End Sub

  Private Sub SQLEncodeButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SQLEncodeButton.Click
    If InputTextBox.Text.Length > 0 Then
      OutputTextBox.Text = dotNetTips.Utility.StringHelper.SQLEncode(InputTextBox.Text)
    End If

  End Sub
End Class